%
O9012(QUINTE CGW SCREEN2) 
 
G310D13303P30L1
G310D13304P31L1

IF[#11NE#0]GOTO1 
#11=-1 
 
N1(ADR A)
IF[#[#30]EQ-360.]THEN
#[#30]=2147483648
GOTO2
ENDIF
IF[#[#30]NE#0]THEN#[#30]=#[#30]*10000
IF[#[#30]EQ#0]THEN#[#30]=4026531840
 
N2(ADR B)
IF[#[#31]EQ-360.]THEN
#[#31]=2147483648
GOTO3
ENDIF
IF[#[#31]NE#0]THEN#[#31]=#[#31]*10000
IF[#[#31]EQ#0]THEN#[#31]=4026531840
 
N3(ADR F)
IF[#9NE#0]THEN#9=#9*1000 
IF[#9EQ#0]THEN#9=-1
 
N4(ADR D)
IF[#7NE#0]GOTO5
#7=-1
 
N5(ADR M)
IF[#13NE#0]GOTO6 
#13=-1 
 
N6(WRITE REGISTERS)
G310R13400Q#11L2 
G310R13402Q#[#30]L4
G310R13406Q#[#31]L4
G310R13410Q#9L4
G310R13414Q#7L2
G310R13416Q#13L2 
M12
G310R13428Q1L1 
 
N10(WRITE REGISTERS) 
G310R13364P21L1
IF[#21EQ0]GOTO10 
G310R13428Q0L1 
#3962=13418
#22=#3964
#22=#22OR1 
M12
#3964=#22
 
N11(START TO BLKFIN) 
G310R13354P23L1
#23=#23MOD2
IF[#23EQ0]GOTO11 
#22=#22XOR1
#3964=#22
 
N12(INITIALIZATION)
#11=#0 
#[#30]=#0
#[#31]=#0
#9=#0
#7=#0
#13=#0 
#30=#0 
#31=#0 
 
M99
%